home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 1 / Amiga Tools.iso / s / export_tex.dfa < prev    next >
Text File  |  1994-06-06  |  1KB  |  61 lines
  1. /************************************************************************
  2.  *
  3.  * export_tex.dfa                by Dirk Federlein 1993
  4.  *
  5.  * Exports marked addresses to a file that you can use in connection
  6.  * with TeX and mailmerge.
  7.  *
  8.  *
  9.  * Feel free to insert additional fields or remove existing ones
  10.  *
  11.  *
  12.  ************************************************************************/
  13.  
  14. options results
  15.  
  16. tabchar = '09'X
  17. cr    = '0A'X
  18.  
  19. exportfile = 't:dfa_tex.export'
  20.  
  21. if ~show(ports, DFA) then
  22. do
  23.     exit 0
  24. end
  25.  
  26.  
  27. if open('exfh',exportfile,'W') then
  28. do
  29.     address 'DFA'
  30.  
  31.     FIRST STEM ADR.
  32.  
  33.     if ADR.ADDRESS.14 = 0 then
  34.         NEXTSEL STEM ADR.
  35.  
  36.     do while RC = 0
  37.         writech('exfh', '{')
  38.         writech('exfh', ADR.ADDRESS.0)
  39.         writech('exfh', ('\\ '))
  40.         writech('exfh', ADR.ADDRESS.2)
  41.         writech('exfh', (' '))
  42.         writech('exfh', ADR.ADDRESS.1)
  43.         writech('exfh', ('\\ '))
  44.         writech('exfh', ADR.ADDRESS.3)
  45.         writech('exfh', ('\\ '))
  46.         writech('exfh', ADR.ADDRESS.4)
  47.         writech('exfh', (' '))
  48.         writech('exfh', ADR.ADDRESS.5)
  49.         writech('exfh', ('\\ '))
  50.         writech('exfh', ADR.ADDRESS.6)
  51.         writech('exfh', '}')
  52.         writech('exfh', (cr))
  53.  
  54.         NEXTSEL STEM ADR.
  55.     end
  56.  
  57.     close ('exfh')
  58. end
  59.  
  60. exit
  61.